---
title: "Charlotte for Public Transit"
output: 
  flexdashboard::flex_dashboard:
    source_code: embed
    theme:
      bg: "#101010"
      fg: "#FDF7F7" 
      primary: "#0068b3"
      base_font:
        google: Roboto
      code_font:
        google: Source Code Pro
    orientation: columns
    vertical_layout: fill
#   runtime: shiny
---

```{css}
<style>
.navbar {
}
.navbar-brand {
  color:white;
}
</style>
```

```{r global, include=FALSE}
# load scripts
source("main.R")
source("accessibility.R")
```

Inputs {.sidebar}
-------------------------------------

* We demand that CATS:
  * **INCREASE** frequencies
  * **EXPAND** routes and schedules
  * **BUILD** shelters at all stops

```{r sidebar}
```

Column {data-width=650 .tabset}
-----------------------------------------------------------------------

### Service Schedule

```{r col1tab1}
ggplotly(date_servicepattern_plot)
```

### Headways

```{r col1tab2}
route_headways_plot
```

### Departures

```{r col1tab3}
stop_departures_plot
```

Column {data-width=350}
-----------------------------------------------------------------------

### Map

```{r col2tab1}

```